PACKAGE IntSqrt IS
   PROCEDURE IntSqrtBis (M: OUT Integer; N: IN Integer);
   PROCEDURE IntSqrtLin (X: IN Integer; A: OUT Integer);
END IntSqrt;
